home *** CD-ROM | disk | FTP | other *** search
/ Softdisk Supreme / Softdisk Supreme.iso / pc / DSK Files / 0-49 / SD018b.dsk / START.DRILLS.bas < prev    next >
BASIC Source File  |  2003-06-12  |  963b  |  32 lines
  1. 10 D$ = "<CTRL-D>"
  2. 400  ONERR  GOTO 440
  3. 410 N = 0
  4. 420  READ E$(N),P$(N)
  5. 425 N = N +1: GOTO 420
  6. 440  REM 
  7. 450  HOME : PRINT 
  8. 451  GOSUB 600
  9. 452  VTAB 2: PRINT  SPC( 12);"<<< DIRECTORY >>>"
  10. 453  PRINT 
  11. 500  FOR I = 1 TO N
  12. 510  HTAB 5: PRINT  CHR$( ASC("A") -1 +I);" = ";E$(I -1)
  13. 520  NEXT I
  14. 525  PRINT 
  15. 530  INVERSE : PRINT "SELECT";: NORMAL : GET A$: PRINT A$
  16. 540 I =  ASC(A$) - ASC("A")
  17. 550  IF I <0  OR I > = N  THEN 450
  18. 560  PRINT D$;P$(I)
  19. 599  END 
  20. 600  REM  INQUIRIES
  21. 610  VTAB 12: PRINT "FORWARD INQUIRIES AND SUGGESTIONS TO:"
  22. 620  PRINT : HTAB 20: PRINT "DR. J. BEIDLER"
  23. 630  HTAB 20: PRINT "MATH./COMP.SCI.DEPT."
  24. 640  HTAB 20: PRINT "UNIV. OF SCRATON"
  25. 650  HTAB 20: PRINT "SCRANTON, PA 18510": PRINT 
  26. 660  HTAB 20: PRINT "(717) 961-7446"
  27. 699  RETURN 
  28. 2000  REM  DATA FOR DIRECTORY
  29. 2023  DATA  ADDITION DRILL,RUN ADD.DRILL
  30. 2025  DATA  SUBTRACTION DRILL,RUN SUB.DRILL
  31. 2026  DATA  DRILL REVIEW, RUN DRILL.REVIEW
  32. 2027  DATA  ABOUT THESE DRILLS,RUN ABOUT.DRILLS